Declare Function mciSendString Lib "mmsystem" (ByVal MCI_COMMAND As String, ByVal ReturnString As String, ByVal ReturnLength As Integer, ByVal Handle As Integer) As Long
Declare Function mciGetErrorString Lib "mmsystem" (ByVal MCI_ERROR As Long, ByVal ErororString As String, ByVal ReturnLenght As Integer) As Integer